home *** CD-ROM | disk | FTP | other *** search
/ Micom Basic 1995 August / CD [BM9508].bin / basic / bp_kouza / n88basic / list1.bas next >
Encoding:
BASIC Source File  |  1995-06-06  |  1.2 KB  |  21 lines
  1. 100 SCREEN 3                                             'TOWNSé═ 100 SCREEN@ 0
  2. 110 CONSOLE 0,25,0,1                                'TOWNSé═ 110 CONSOLE 0,25,0
  3. 120 WIDTH 80,25
  4. 130 CLS 3                                                    'TOWNSé═ 130 CLS 0
  5. 140 LINE(0,300)-(639,399),4,BF     'TOWNSé═ 140 LINE(0,300)-(639,399),PSET,4,BF
  6. 150 WHILE -1                                                        'û│î└âïü[âv
  7. 160  LOCATE 0,15
  8. 170  PRINT "                                         "
  9. 180  LOCATE 0,15
  10. 190  INPUT "ôⁿÄ╦èpôxé═";RI                                      'ôⁿÄ╦èpôxé≡ôⁿù═
  11. 200  Y = 0                                                'ïOÉ╒é≡ò`é¡ïNô_ Yì└òW
  12. 210  X = 320 + 300 * TAN( RI * 3.1416 / 180 )             'ïOÉ╒é≡ò`é¡ïNô_ Xì└òW
  13. 220  D = 1                                                            'ê┌ô«ò√îⁿ
  14. 230  WHILE Y >= 0
  15. 240   LINE(X-30,Y)-(X+30,Y),6         'TOWNSé═ 240 LINE(X-30,Y)-(X+30,Y),PSET,6
  16. 250   X = X - COS( ( 90 - RI ) * 3.1416 / 180 )               'ïOÉ╒é╠ê┌ô« Xì└òW
  17. 260   Y = Y + D * SIN( ( 90 - RI ) * 3.1416 / 180 )           'ïOÉ╒é╠ê┌ô« Yì└òW
  18. 270   IF Y > 300 THEN D = -1               'ö╜Ä╦é╡é╜éτYò√îⁿé╠ê┌ô«ò√îⁿé≡ïté╔é╖éΘ
  19. 280  WEND
  20. 290 WEND
  21.